#!/usr/bin/perl

use lib "./../cgi-bin/";

use SHELL::Command;
use Convert::Cyrillic;

my $comm = SHELL::Command->new();
$comm->connect('localhost') or die "cant connect" ;

@str = $comm->scat(
'/home/dmitriy/perlworkspace/WebApp/TESTDATA/i386-Debian-Linux/clib/2_1_0_334/release/log'
);
foreach $srcstr (@str){
$nstr = Convert::Cyrillic::cstocs ('koi8', 'utf8', $srcstr);
print $nstr; 	
}

